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1« ABSTRACT 



DUA IS A^ lOMOD THAT EXERCISES UP TO EIGHT 8-BIT SYMCHROiOUS 

Lim MTERFACES (DU11> BY TRAiSMITTIiG A STANDARD 

BIMARY COUMT PATTERM USIMG THE MAIHTEMAiCE MODE FEATURE^ THE 

RECEIVED DATA IS COMPARED MITH THE TRAflSMITTED DATA AMD hUY ERRORS 

ARE REPORTED VIA THE CONSOLE TTY» ALL A¥AIL^BLE INTERFACES 

(UP TO 8> ARE ACTIVATED km RUBilMG SIHULTAMEOUSLY « 



2« REQUIREMENTS 



HARDiARES DUll SYNCHROHOUS INTERFACE 

storages: DUA REQUIRES! 

1» DECIMAL M0RDS5 823 
2. OCTAL TORDSS 1467 
3« OCTAL BYTES S 3156 



3» PASS DEFINITION 



OME PASS OF THE DUA MODULE CONSISTS OF TRAISNITTING ANfD RECEIVIMG 
40000 (8) 8-BIT CHARACTERS (TOTAL) 

EXECUTION TIME 



DUA RUNNING ALONE ON A PDPll/05 PROCESSOR TAKES APPROXIMATELY 
1 MINUTES TO COMPLETE ONE PASS« 

5« CONFIGURATION PARAMETERS 



DEFAULT PARAMETERS S 

DEVADRS 1, VSCTaRUj. BRls5^ BR225, DEVCNTM 

REQUIRED PARAMETERS: SRI = 1 = ASYNCRONGUS (ISOCRONOUS ) 

SRI = = SYNCROiOUS 

DVA= DEVICE ADDRESS OF THE FIRST DUll 
VCT= VECTOR ADDRESS OF THE FIRST DUll 

6, DEVICE/OPTION SETUP 



MONES NO DEVICE IS REQUIRED IS MAINTENANCE MODE 
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7« MODOLE OPERATION 



TEST SEQOEIICES 

A« TEST UP TO 8 POSSIBLE DEVICES FOR SELECTION 

B» STORE THE MO, OF DEVICES TO BE TESTED AUD SET UP THE 

VECTORS FOR THESE DEVICES 
C« TUR^ ON RECEIVER IITERROPT EMBLE* TRANSMITTER INTERRUPT 

EM&BLE^ AMD HIIMTEKAMCE MODE FOR ALL ACTIVE DEVICES. 
D» IMITIAL TRANSMITTER IHTERRUPT SERVICES 

1, ) TEST FOR FALSE INTERRUPT (READV (0)); REPORT ERRORS 

2, ) OUTPUT MEXT CHARACTER TO EACH ACTIVE DEVICE 

3«) RETURM TO MQMITOR TO iAIT FOR RECEIVER IMTERRUPT* 

E« RECEIVER INTERRUPT SERVICES 

1, ) TEST FOR FALSE INTERRUPT (DOiE (0))5 REPORT ERRORS 

2, ) COPPARE IliPUT/QUTPUT DATA; REPORT ERRORS 

3, ) RETURfi TO MOHITOR TO iAIT FOR TRAMSHITTSR II^TBRRUPT 

F» REPEAT D AID E UHTIL 40000, (TOTAL) CHARACTERS HAVE BEEl 
PROCESSED 

G« AT EiD OF PASS TURM OFF ALL ACTIVE DEVICES A^D RESTART AT B 
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8« OPERATIOli OPTIOHS 



j|« LOCATIOS DVIDl (DUA 14) MAY BE CHANGED TO SELECT AMY CQM- 
BIMATIOH or DEVICES BITO=DEyO^ BIT1=DE¥1 BIT 

JBIT DE ir D¥ID1 IS INITIALLY DUA MILL BE DROPPED FROM TEST, 

B» I:0CATig|S^START*2 AMD PASS4.14(8) MAY BE MODIFIED TO liCREASE 
OR DECREASE THE TOTAL MDMBER OF CHARACTERS PROCESSED PER PASS 

9» iOli STASDARD PRIiTOUTS 

mWEZ ALL PRIMTODTS HAYE STAHDARD FORMATS AS DESCRIBED IN THE 
DEC/Xll DOCOMEfiT- 



DUAI DEC/Xll SYSTEM EXERCISER MODULE MACYll 30A(1052) 12-0CT-78 16:33 PAGE 6 
XDOAIO.Pll 12-0CT-78 11S57 



Sfc:Q 0005 



DEFINITIONS 
5=100000 
4=400" 




JPROCESSER LEVELS 
' EVEL7=34Q 

EVEL6=300 

EVEL5=240 

EVEL4=200 

EyEL3=140 
_EVEL2=100 
.EVEL1=040 

EVEL0=000 
,REGISTEP DEFINITIONS 

;REGISTER EQUATES 

RXCSR=0 

PARCSR=2 

RXDBDF=2 

TXCSR=4 

TXDBUF=5 



JRXCSR I 
DSC=BIT15 
RING=BTT14 
CTS=BtT13 
CARDET=BIT12 
RECACT=BIT11 
SRD=BIT10 
DSR=BIT9 
STPSYN=BIT8 
RXD0HE=BIT7 
RINTEN=BIT6 
DSINTE=BIT5 
SYNSCH=BIT4 
STDSBIT3 
RTS=BIT2 
0TR=BIT1 
VOID=BIT0 

;rxdbuf 

RXERR=BIT15 



it definitions 

;data set change 
;ring 

;CLR TO SEND 
;CARRIER DETECT 
;REC ACTIVE 
;SEC REC data 

;data set rdy 

JSTRIP SYNC 
;REC DONE 
;REC INTR ENABLE 
;DSC INTR ENABLE 
;SYNC SEARCH 
;SEC XMIT DATA 
;REQ TO SEND 
;DATA TERM RDY 

BIT DEFINITIONS 

;REC ERROR 
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0VRRUN=BIT14 ;OVERRON 

FRMERR=BIT13 ;FRAME ERROR 

PARERSBIT12 ;PARITy ERROR 

JPARCSR BIT DEFINITIONS 

PAREN=BIT9 ;PARITY ENABLE 

EVPAR=BIT8 ;EVEN PARITY SENSE 

JPARCSR HRD DEFINITIONS 

SYNINTsSDOOO ;SYNC EXTERNAL MODE 

SYNEXT=20000 ;SYNC INTERNAL MODE 

ISYMOD=0 ;IS0C MODE 

FIVE=0 ;WORD LENGTH 5 BITS 

SIX=2000 ;WORD LENGTH 6 BITS 

SEVEN=4000 ;B0RD LENGTH 7 BITS 

EIGHT=6000 ;WORD LENGTH 8 BITS 

NOPAR=0 ;N0 PARITY 

ODDPAR=1000 ;ODD PARITY 

EVEPAR=1400 JEVEN PARITY 

JTXCSR BIT DEFINITIONS 

DNA=BIT15 ;DATA NOT AVAILABLE 

MTDATA=:BIT14 ;MAINT DATA 

CLK=BIT13 ;CLK 

BITii=BIT10 ;BIT HINDOW 

MRESET=BIT8 ;MASTER RESET 

TXD0NE=BIT7 ;XMIT DONE 

TXINTE=BIT6 ;XMIT INTR ENABLE 

DNAIHTE=BIT5 ;DNA INTR ENAB 

SEND=BIT4 ;SEND 

HDXEN=BIT3 ;HDX/FDX 

BREAK=BITO JBREAK 

;TXCSR WRD DEFINITIONS 

USER=0 ;USER MODE 

MINT=4000 ;MAINT INT MODE 

MEXT=10000 ;MAINT EXT MODE 

SYSTST=14000 ;SYSTEM TEST MODE 
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052504 044501 
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.LIST SEQ^BIN 

; SET UP VECTOR (RETURN ADDRESS(PC)) PC = INTR SERV. 



066106 

iim 

OOOllt 
00012C 



oi 



OQOOQO 
000000 



000000 
000000 



0000 

0000 




„C/Xll's^sflfi''lkEl 

DpiiCOM VERSION 6 23-HAY-78 

i*ifl***§Il* ************************ ********* 



- DUAI OEC/Xll SYSTEM EXERCISER 



*************** 



VICTOR 



.ASCII 
.BYTE 



.BYTE 
.BYTE 

OPEN 
OPEN 
OPEN 
OPEN 
**** 




PRTY5 
PRTY5 



/ ;MODULE NAME. 

JUSED _ 
;1ST DEVICE ADD 



KEEP TRACK OF WPUFF USAGE 



;jsT 



EVICE VECTOR. 
R LEVEL. 



joEVICE INdIcaTOR 
;SWITCH REGISTER 



******** 



JSWITCH 
;SWITCH 
;S«ITCH 
t** ****************** 

JSTATUS MORD. 
JMODULE START 




************* 



RST . 
KDTO: 
WDFRI 
INTR: 



;MOOULE STACK POINTER. 
JPASS COUNTER. 

J# OF ITERATIONS PER PASS=2000 

;LOC TO COUNT ITERATIONS 

;L0C TO SAVE TOTAL SOFT ERRORS 

;LgC TO SAVE TOTAL HARD ERRORS 

HOC TO SAVE SOFT ERRORS PER PASS 

;LOC TO SAVE HARD ERRORS PER PASS 

;S OF SYS ERRORS ACCUMULATED 

?HOLDS RANDOM M WHEN RAND MACRO IS CALLED 

JrESERVRD pop MONITOR USE 

jreservrd for monitor use 
;reserved for monitor use 
;loc to save ro. 

JLOC TO SAVE Rl. 

?lqc to save r2. 
;ldc to save r3. 
;loc to save r4. 
>loc to save r5. 
;loc to save r6. 
;addr of current csr. 
jaddr of good data, or 
^contents of csr. 
;addr of bad data# or 
;status reg contents. 

;TYPE OF ERROR 
^EXPECTED DATA. 
;ACTUAL DATA. 

?RESTART ADDRESS AFTER END OF PASS 
;HORDS TO MEMORY PER ITERATION 
;WCRD3 FROM MEMORY PER ITERATION 
;# OF INTERRUPTS PER ITERATION 
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000122' 000032 
000040 
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012767 
- 76 




.urn 

103406 
001424 

otm 

000770 

m 



000010 177662 

m mm 

"77542 002640 



177454 
002750- 




IDNUM: 32 

.REPT SPSIZ 

.NLIST 

.»ORD 

.LIST 

.ENDR 

MOPSP: 

.****** **********«*«ft*******i 
START: MOV p.,WDTO 
MOV |8,,WDFR 
MOV #32., INTR 

MOV DVIDl, SELECT 

BNE RESTRT 



jmodule identification number=32 
;module stack starts here. 



******************************* 



********** 



ENDS, 
RESTRT: MOV 
RESTR: CLR 
CLR 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
ASR 
BCS 
BEQ 
ADD 
ADD 
BR 
INC 
MOV 
MOVB 
INC 
ADD 
MOV 
MOVB 
IMC 
ADD 
BR 



1$: 



2$: 



BEGIN 

#1,TFLAG 

TRCNT 

RCCNT 

DUDN 

NO.DU 

|TQ,QAD^ 

slEiSf^Ro 

VECT0R|;R1 



|LNKTAB,R2 




;§ WORDS TO MEM/ITERATION 

;| WORDS FROM MBM/ITERATinN 

;32 INTERRUPTS/ITERATION 

;COPY THE DEVICE SELECTION PARAMETER 

;ARE any SELECTED? IF YES, START PROCESSING 

JIF NONDROP THE MODULE 

?DNLY START W.D. TIMER ONCE 

;RESET THE COUNT OF TRANSMITTER INTERRUPTS 

;ESET THE RECEIVER COUNT 

;CLR FLAG INDICATING NO. OF DU'S DONE 

;N0. DU'S SELECTED 

;SET UP ^ POINTERS 

;COPY ACTIVE SELECTION PARAMETER 

?R1 = VECTOR ADDRESS 

;B2 = LINK: JSR TABLE KITH OFFSET 

MSOLATE A SELECTION FLAG IN THE CARRY 3IT 

;IF SELECTED GO SET UP VECTORS 

;IF NO MORE/CONTINUE PROCESSING 

;IF MORg^UPDATE POINTERS FOR NEXT DEVICE 



GO PROCESS NEXT DUll 
COUNT DU'S 

SET UP VECTOR RETURN ADDRESS(RCV) 

SET OP VECTOR PRIORITY (RCV) 

INCR. POINTER 

UPDATE NEW LINK ADDRESS 

SET UP VECTOR RETURN ADDRESS (Xf*T) 

SET UP VECTOR PRIORITY (XMT) 

INCR. POINTER 

UPDATE NEW LINK ADDRESS/FOR DUXNT 
GO CHECK FOR MORE DEVICES 



000416' 012700 000147 

000422' 012703 002364' 

000426' 005023 
OOOlfO' 005300 
000432' 001375 



THIS CODE WILL CLEAR ALL OF THE WITE BUFFER AREA 



SETUPl: MOV 



1$: 



CLR 
DEC 



fl03.,R0 
#DULIN,R3 

1$ 



?C00NT REQUIRED TO GO THRU 
>ALL DATA STORAGE BUFFERS 
JSTARTING ADDRESS OF 
; DATA BUFFER LOCATIONS. 
}CLEAR DATA BUFF REG 
;ARE THERE MORE TO CLEAR? 
;N0 GO BACK & DO THE REST 



THIS CODE WILL SELECT WHICH LINES (<1:8>) HAVE 
BEEN SELECTED FOR TEST & TRANSMIT SYNC TO START 
TESTING ALL LINES. 
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393 
394 



52761 
00751 



ihitial:mov 

MOV 
MOV 
MOV 
MOV 

1$: MOV 

MOV 

ADD 
ADD 
DSC 
BHE 



002410 START2: 



D$: 



014020 000004 
177200 

036026 000002 

006026 000002 

000520 000000 

000100 000004 



MOV 
MOV 
MOV 
MOV 
MOV 
ASR 
BCS 
BEQ 
COM 
ADD 
TST 



DEC 

actvate:mov 

3$: ASR 
BCS 
BEQ 
ADD 
BR 
HOV 
TST 
BNE 
MOV 



6$: 



IS: 

2$: 




;SET COUNT VALUE 
;Ri=THE ADDRESS OF FIRST DUll 
;R2=ADDRESS OF TABLE OF ADDRESSE 
;R3=ADURESS OF TABLE OF BU"""*^ ' 
;PQINT R4 TO THE FIRST BUFFEK 
;DVADX=DEVICE ADDR. CODE 
;BUFF POINTER HAS START OF LINF 
JBUFF STORAGE 
;UPDATE 
;UPDATE 
;CNT DOWN 

J NOT DONE GO BACK FOR MORE 



UFFER ADDRESSES 



|8.,N0DVTS 
AODR/Rl 
#LNSYN1+1,R0 
|LSCNT1,R3 
SELECT, R2 
R2 



;SET UP COMPLEMENT OF 
;GET DEVICE ADDRESS 



NUMBER OF LINES TESTED 



it 



JSET UP RO TO POINT TO LNSYN LOG. 

;CGPy ACTIVE SELECTION FLAGS 
;TEST IS THIS DEVICE ON LINE 



-TVATE 

2,R0 
R3) + 

il6l20#(R3) 

NODVTS 

sIleCT,R2 

R2 
5$ 

TMRSET 
#10, Rl 



CTIVE DEVICES 

SET LIHCNT FLAG IF DEVICE NOT SELECTED 
UPDATE THE TABLE POINTERS 



;TRY THE NEXT DEVICE 

;LOAD SYNC COUNT IN LISYN XfHIGH BYTE 
;C0UNT=17. HIGH FOR TRANSMIT 



BIT 3=TRAN 
— OF 



JLOS FOR RECEIVE„„ , 

;KEEP TRACK OF N0HBER OF UNTESTED DEVICES 
;TRY NEXT DEVICE 
;GFT ACTIVE DEVICE FLAGS 



CHAR. PLUS 1) 
SYNC OK INTERRUPT 



Pystst!send,txc§ 

#SYNINT! EIGHT! NO^ 

2S ; 
»ISYM0D!EIGHT!N0P 

ffRINTENISTPSYNIsf 

|TXINTE,TXCSR(Rl' 



ISOLATE A SELECTION FLAG 
IF SET, GO START DEVICE 
IF ALL SET GO START TIMER 
INDEX RECEIVER CSR 
GO START NEXT DEVICE 
R(R1) ;SET MAINT MODE &SEND 
ARE YOU RUNNING SYNCRONOUSL Y? 
NO, ITS ISOCRONOUS 

AR1 26,PARCSR(R1) ;SET SYNC INTERNAL, 

EIGHT BITS PER CHAR,NU PARITY ,26=SYNC 
BRANCH AROUND 

AR!26,PARCSR(R1) JSET ISOCRONOUS FQDE, 

EIGHT BITS PER CHAR, NO PARITY/26= SYNC 

nsch,rxcsr(r1) ;set rec tnteriipt enable, 
strip sync, search sync 

;enable transmitter interrupt 



STHIS IS THE MATCHDOG TIMER. 
;IF ALL GOES WELL THE TIMEOUT FLAG WILL BE CLEARED. IF IT IS NOT IN THE PRSSCPIRSD TIME, 
;A MESSAGE WILL BE SENT . 
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mill- luh 



000700' 012767 
000706' 005067 
000712' 



Mi m 

8807P' 

000744' 



00000' 

????? 



500005 00^242 
002240 

10' 

JO' 

002220 



2$: 



88l|l 

00136 

10440L 

000750' 000000 

000750- 104413 000000' 

000754' 000167 177302 



002216 

000000* 002260' 



EXITS, BEgIn. 



CLR 
MOV 
MOV 
CLR 



TFLAG 
|-1,TM0TFLG 
|5,TMRCNT 

TICKER 



BREAKS,BEGIN 
BREAKS, BEGIN 
TST TMOTFLG 
BEQ FINISH 
DEC TICKER 
BNE IS 
MSGNS, BEGIN, HUNG 
EHDS, BEGIN 

EMDIT$,BEGIK 

JMP HESTRT 



;have we been here before? 

;BR IF NOT 

JEXIT to MONITOR. MODULE WAIT FOR INTERRUPT. 
;D0N'T COME THRU HERB AGAIN 

;SET THE TIMEOUT FLAG 

?SET ENOUGH TIME FOR INTERRUPTS 

;START TIMEOUT 

/TEMPORARY RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUCTION. 
;ALL DONE? 

;IF YES, GO FINISH UP 

;1F NO, TICK SOME TIME 
JBREAK AGAIN, IF NO TIMEOUT 
MSCII MESSAGE CALL WITH COMMON HEADER 

;SIGNAL END OF ITERATION. 
/MONITOR SHALL TEST END OF PASS 



;THIS CODE WILL ANSWER THE XMT INTERRUPT REQUEST 
} FOR SERVICE 



0772' 



080002 001752 

002744' 001744 

-r,,^- 002704' 001734 
guiOlO' 012605 

001012' 000004 000000' 001020' 



is: 



MOV 
ADO 
CMP 
BNE 
MOV 
MOV 



||Q-i-40,QAD1 



kRQ$,BEGIN7Q0UT" 



;STORE CONTENTS OF R5 IN THE QUEUE 

JUPDATE THE QUEUE POINTER 

/POINTER AT END OF QUEUE? 

;BR IF NOT 

/RESET THE POINTER 

/RESTORE THE OTHER GUY'S Rb 



/ QUEUE UP TO CONTINUE AT QOUT AND RTI 



/DEFERRED XHTR SERVICE - THIS ROUTINE RETRIEVES POINTER TO CSR ADDRESS 
/FROM THE FIFO QUEUE AND SERVICES THE LINE AT LEVEL 




MOV 

ADO 

CMP 

BNE 

MOV 

MOV 

BIT 

BEQ 

DECS 

BEQ 

INC 

MOVB 

INCB 

CMPB 



RQAD2#R0 /GET POINTER FROM THE QUEUE 

|2,QAD2 /UPDATE THE QUEUE POINTER 
|TQ+40,QAD2 /POINTER AT HIGH LIMIT 

I| /BR IF NOT 

|tQ>,QAD2 /RESET THE POINTER 

«X^BllSO)fRl„, >R1 = WITH OFFSET VALUE 

iRECACT,RXCSR(Rl) /TEST TO GIVE MORE SYNC CHARS 

DUXMT2 /BRANCH IF IN SYNC 

LNCNTl+KRO) /SENT 16 CHARACTERS? 

DUXMT3 /YES-BRANCH 

TRCHT /INCR TRANSMIT COUNT 

LHSYN1(R0),TXDBUF1r1) /SENT DATA 

LNSYNICRO) /FORM NEXT DATA WORD 

#26,LNSYn1(R0) /IS IT SYNC CHARACTER? 
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002424' 

000100 000004 
000000' 

001746 000006 
002425' 

000004 002425' 
000000' 



000004 
032767 



6666 
-.6664 
000000 



000000' 001240' 

000011 176640 
000000' 000000 
000662 

000002 001636 
001632 



002445' 
176570 

001610 176564 



040000 001564 

000000' 001412' 
020000 001546 



BNE 
INCB 



DUXHT3: 
DUXMT4: 



DUXMT4 

LNSYNl(RO) 

DUXMT4 

#100,TXCSR(R1 ) 



jng-branch 

;inc data word again 
;hranch to exit 
;clr tnt enb 



EXIT$,BEGIN ;FXIT TO MONITOR. MODULE WAIT FOR 

MOVB TSYNC,TXDB0F(R1) ;XMT SYNC CHAR (TSYNC) 

DECS LNSYNl+1 (RO) ;DEC SYNC COUNTER 

BNE XMTRTN ;EXIT IF SYNC COUNT NOT ZERO 

MOVB #4,LNSYN1+1(R0) ; RE- IN ITI ALI ZE SYNC COUNTER 



EXITS/BEGIN 

REQUEST FOR SERVICE 



MOV 

MOV 

MOV 

MOV 

MOV 

TSTB 

BMI 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 



R2/-(SP) 

R3,-(SP) 

R4,-(SP) 

(R5)-R3 

fiVADl(R3),R4 

iuR^Vl 
R4^CSRA 
(R4LACSR 
^XCSfi(R4) 

SP)+^R4 

SP)+,R3 

SPU,R2 

SP)+,RS 



JEXIT TO MONITOR. MODULE WAIT FOR TNTEPRUPT. 



SAVE REG 2 ON STACK 
SAVE REG. 3 ON STACK 
SAVE REG. 4 ON STACK 
GET OFFSET 

R3 = R4 DEVICE CODE OFFSET VALUE 
IS DONS SET 

DONE SET :SERV DONE REQUEST 
SHOW CSR ADDR. 
CONTENTS OF CSR 



) 



RESTORE STACK 



^IRQ$/BEGIN^FIRER 

; 

MOV |(11,ERRTYP 

'■k****** ******** ft* i 



QUEUE UP TO CONTINUE AT FIRER ktW RT I 



Arders 

.*****: 
JMP 

MOV 

TST 

BPL 

DECB 

INCB 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

BIT 

BEQ 



DROP 



******* ****************-k********i 

IFALSE INTERRUPT 

************************** *i 

;TUHN OFF THIS DEVICE 



******** 



RXDBUF(R4),RCVDAT ;SAVE RXDRUF 

RCVDAT ;ARE there ANY ERRORS ? 
READ ;N0 
LNSYN1<R3) 
LNCNT1+1(R3) 
R4,CSRA 
RCVDAT,ACSR 
RXCSR(R4) 
(SP}+,R4 
(SP5+,R3 
(SPS+^R2 

IoVRrGn, RCVDAT 

1$ ;no 



UPDATE XMT DATA 

" " ACTIVE COUNT 

CSR ADDR. 
CONTENTS CSR 

RESTORE STACK 



TEST FOR OVERRUN 



^IRQ$/BEGIN/OVERR 

^IT iPRMERR/RCVDAT 



; QUEUE UP TO CONTINUE AT OVERR AND RT I 
;TEST FOR FRAME ERROR 
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507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 



531 
532 
533 
534 
535 

ill 

540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 



001356' 001403 



MACYll 30A(1052) 12-OCT-78 16:33 PAGE 13 
BEQ 2$ ;ND 



001360' 


000004 


000000- 


001456' 


^IRQ$,BEGIN^FRERR 


/ 


QUEUE 


UP TO 


CONTINUE 


AT 


FRERR AND 


RTI 


001366' 
001374' 


032767 
001403 


010000 


001530 2$: 


6lT tfPARER, RCVDAT 
BEQ 3$ ;ND 


;TEST FOR 


PARITY 


ERROR 










001376' 


000004 


000000' 


001522- 


^IRQS,BEGIN/PAERR 


/ 


QUEUE 


UP TO 


CONTINUE 


AT 


PA ERR AND 


RTI 


001404' 






3$: 


















001404' 


000004 


000000' 


001566- 


^IRQ$, BEGIN, EBIT15 




QUEUE 


UP TO 


CONTINUE 


AT 


EBIT15 AKD 


RTI 



001412- 
001420' 

mm- 

001446' 
001452' 

001456- 

001464' 

001472- 

mm- 

001506' 
001512- 
001516- 

001522- 

001530- 

001536 
001542 
001550 
001552 
001556- 
001S62- 

001566- 

001574- 

001602- 

001606' 



012767 

104405 

005267 
022767 
001402 
000167 
005067 
000167 

012767 

104406 

005267 

um 

000167 
005067 
000167 

012767 

104406 

005267 

- 005067 
000167 

012767 

104405 

000167 

032764 



000021 
000000- 



176466 
000000 



003 001500 



176622 
001466 
000464 

000022 

000000- 

176556 
001424 
000420 

000023 

000000- 

001402 
000003 

176512 
001362 
000354 

000000 

000000- 

000334 

004000 



176422 
000000 



176356 
000000 



176312 
000000 



1$: 

FRERR: 



JMP 
1$: 



is: 

EBIT15: 



MOV «21,ERRTYP 

• **********%********** „ 

HRDERS,BEGIN,NULL ;OVERRDN ERROR 

. ***************** ***************************** 

INC OVERRU 

CMP p, OVERRU 

BEQ 1$ 

JMP RBSTR ;N0 RETRY MODULE 

CLR OVERRU ;CLEAN UP 

JMP DROP ;GD DESELECT THIS MODULE 



********************** 



;COUNT ERRORS 
;3 ERRORS ? 

;yes 



************* 



*********** 



*************** 



{nc 
cr4p 

BEQ 
RESTR 
CLR 
JMP 



FRAHER 



FRAMER 
DROP 



|3;FRAHER 



ir _ 

********************************* 

JCOUNT ERRORS 
;3 ERRORS ? 

;yes 

no retry module 

;CLEAN UP 

;G0 DESELECT THIS MODULE 



MOV #23,ERRTYP 
• ***************** 

f2' 



Inc 

CMP 
BEQ 
JMP 
CLR 
JMP 



*********** 

IFER$/BEGIN,KULL 
***************** 



******* 



PARIER 
|3/PARIER 

rIstr 

PARIER 
DROP 



********************************** 

;PARITY ERROR 
******************************* 

;COUNT ERRORS 
;3 ERRORS ? 

;yes 

;n0 retry module 
;cleai{ up 

;G0 DESELECT THIS MODULE 



*******^*ii***** ****************************** ******* 

BEGIN, NOLL JRECEIVE FLAG ERROR 

-^^^***** ********************* ************ 



000000 read: 



Arders^i 

• ****** 
JMP 

BIT 



*** ***** 
******** 



DROP ;DESELECT THIS MODULE 

tfRECACT,RXCSR(R4) ;IS DEVICE ACTIVE 
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576 
577 



001616' 
001620' 
001624' 
001630' 
001634* 
001640' 
001642* 
001646' 
001652' 



001447 
005002 
066302 
066302 
116412 
122712 
001430 
005267 
105263 
105363 



002464' 
002364' 
000002 
000026 

001270 

002464' 

002444' 



001236 
001230 



001656' 001021 

001660' 005064 
001664' 005064 

005267 

— 6767 
-1007 
012604 
00170b' 012603 
001710' 012602 
001712' 012605 

001714' 000004 000000' 002014' 



BEa 

CLR 

ADD 

ADD 

MOVB 

CMPB 

BEQ 

IMC 

INCB 

DECB 

BNE 

CLR 
CLR 
INC 
CMP 
BNE 
MOV 
MOV 
MOV 
MOV 



yRFLGl(R3),J?2 
gyL|N(R3),R2 
(R2) 



VRFLG1(R3) 
LNCNT1(R3) 

RCVRTN 

TXCSR(R4) 
RXCSR(R4) 
DUDN 

NO.DU#DUDN 

RCVRTN 

(SP)+,R4 

<SPH,R3 

eSP)+^R2 

(SP)+,R5 



^irqs7begin,chck 



;GFT OUT DEVICE NOT READY 
-CLEAR BYTE PNTER 

GET BYTE OFFSET 

ADDR=DATA BUFF ADDR 

DATA => DATA BUFF 

SKP IF SYNC BIT 



CHECK HAVE WE TRANSFERRED ALL 

DATA WORDS. 
THIS LINE NOT DONE RECEIVING 
ALL DATA TRANSFERS 
MASTER RESET (DEVICE) 



COUNT THIS DU 

ARE WE DONE CHCK'ING 



RESTORE STACK 



QUEUE UP TO CONTINUE AT CHCK AND RTI 



;N0 have ALL LINES RCV 
;SOME DATA WORDS YES WAIT 
;FOR CDMPLRT 



Si t 



605 
606 
607 
608 
609 
610 

m 
m 

615 
616 
617 
618 



001722' 012604 

mm- mm 

001730' 012605 
001732' 000002 



746' 005064 
752' 005064 
756- 012604 
760' 012603 
762' 012602 
764' 012605 



000004 
000000 



MOV 
MOV 
MOV 
MOV 
RTI 



MOV 
CLR 
CLR 
HOV 
MOV 
MOV 
MOV 



MOV R4,CSRA 

RXCSR{R4),ACSR 

TXCSRCR4S 

RXCSR(R4) 

(SP)+,R4 

(SP)+,R3 

(SpU,R2 

(SP)+,R5 



RESTORE STACK POINTER 



RETURN TO MAINLINE 

SAVE CSR ADDRESS 
CONTENTS OF CSR 
COLLAPSE THIS DEVICE 

RESTORE STACK POINTER 



IT A'INT WORKIN' 



001766' 000004 000000' 001774' 



llRQS/BEGIN/BDONE 



QUEUE UP TO CONTINUE AT PDONE AND RTI 



001774' 012767 
002002' 104405 
002010' 000167 



000011 176104 
000000' 000000 
000126 



bdone: MOV 



OHP 



#11,ERRTYP 



/YU" 
****** 

DESELECT THIS MODULE 



ITHOUT RECACT ASSEFTtD 
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000020 001072 CHCKl 
002444' 




IS: 



CHCK2: 



1$: 



1$: 



CLR 
CLR 
CLR 

MOV 



CLR 
HOV 
TSTB 
BEQ 
CMP 
BR 
MOV 
HOV 
MOVB 

CONTNU: CMPB 
BEQ 
CMPB 
BNE 
INC 
DEC 
BR 
INC 
DEC 
BNE 
INC 

HOV 
CMP 

BEQ 
BR 



Rl 
R2 
RO 

#20, COUNT 
R2 

#LNCNT1,R1 

(Rl) 

CHCK2 

JR1)+,(R2)+ 

rLro 

DULlN(R2),R2 

(R2)/CHECKR 

CHECKR/(R2)+ 

lle^CHECKR 
ERRRT 
CHECKR 
R2 

CONTNU 

CHECKR 

COUNT 

CONTNU 

NQDVTS 

#100777,(R1) 
|10gNODVTS 

CHCKl 



;CLEAR R0:R0 WILL BE 
;USED AS OFFSET 
JFOR COUNTING NO OF 
;CHAR. READ 
;CLR BUFF POINTER 



;R0 WILL HOLD LINE N0./2 

;R2=START ADDR. THIS LINE BUFF 

;GET FIRST CHAR. 

;CHECK DATA & INCR. POINTER 

;THIS WORD GOOD GO CHECK MORE 

;aAS IT SYNC CHAR. 

;N0 GO REPORT ERROR 

;YES UPDATE CHECHR 

;UPDATE DULIN BUFFER POINTER 

;G0 BACK & CHECK REAL DATA 

;SET UP FOR NEXT BYTE TEST 

JONE MORE BYTE HAS BEEN TESTED 

;N0T DONE YET GO CHECK MORE 

;THIS LINE DONE ADD 1 TO 

?NG. OF DEVICES TESTED 

;HAVE all LINES BEEN TESTED 
;G0 TO END PASS CODING 



MSGN$/BEG1N,1 
BIC 

EX1T$,BE 
TEXT 
177777 
.ASCIZ 



ASCII MESSAGE CALL WITH COMMON HEADER 

; ABORTING SELECTION OF THIS MODULE 

;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 
;MESSAGE POINTER 
; " TERMINATOR 
DEVICE FAILED TO INTERRUPT DROPPING MODULE ' 



#20000, STAT 
GIN 



.ASCIZ 'DEVICE HUNG' 



HUNG: MESSAG2 

mm 



002264- 016067 002404' 175606 ERRRT: 



DVAD1(R0),CSRA ;CSRA=LINE ADDR. 



# 
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/□ 

III 



If: m 
m III 



I? 



iim 



175576 



002320* 104404 000000' 



DEC 
MOVB 
INC 
MOVB 

IW 



R2 

|R2),AWAS 

CHECKR,ASB 
CHECKH 



;UPDATE POINTE 
;BAD DATA BYir 
;UPDAtE POIKt: 
JGOOD DATA BYT 
JUPDATE FOR NE 



R TO DAT 
R TO DAT 



A BUFF 
A BUFF 



COUNT iONE MORE 



[T TEST 

HAS BEEN 



DATER$#BEGIN JDATAERRORI!! 



******* 



******* ** ft* 



002324' 005767 000572 

mm- mm 000560 



m 
III 



ill' 005067 
360* 104400 



000566 
000000' 



restgr: tst 



MOV 
CMP 
8EQ 
BR 



CONTNU 
NODVTS 



11 



00777, (Rl) 
OeNDDVTS 



ASS 
CHCKl 



EXITS/BEGIN 



;are he done checking data on 
;0n this line 

;ncg go do the rest of this line 
;yes this line done add 1 to 
;nddvts>no. of lines tested 

;have all lines been tested 
;G0 to end pass code 

?return to monitor 



;SHOw timer routine its time for end 

;EXIT TO monitor. MODULE WAl 



^ 

710 



mil: iim 



002444' 
002464' 



000010 
000010 



; sync word storage locations (LINE sync <1:8>) 



oulin: .blkw 

ovAOl: .blkw 

LNSYNl: .BLKW 

LHCNTl: .BLKW 

VRFLGl: .BLKW 



;high bytessync count no. 
?l0k byte ^binary word pattern 
;high byte=n0. xmted interrupts 
;low byte = no. rcv. interrupts 
?byte offset value for read 



71- 
727 



002504' 
002524' 
002544' 
002564' 
002604' 
002624' 
002644' 



000010 
000010 
000010 
000010 
000010 
000010 
000010 



; RECEIVE DATA 16 

DOLINl: .BLKW { 

0ULIN2: .BLKW { 

DULIN3: .BLKW I 

DULIN4: .BLKW i 

DULIN5: .BLKW { 

DULIN6: .BLKW i 

DULIN7: .BLKW { 



BYTES PER. BUFFER 



DUll LINE #1 RECEIVE 
DATA BUFFER. 

DUU LIKE #3 RECEIVE 
TRANSMIT DATA BUFFER. 



DUll LINE fiS RECEIVE 

DATA BUFFER 
DUll LINE M RECEIVE 

DATA BUFFER 
DUll LINE #7 RECEIVE 
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DULIN8: .BLKW 



tq: 

QADl 
QAD2 



.BLKW 

OPEN 
OPEN 



; DATA BUFFER 

>DD11 LINE #8 RECEIVE 

; DATA BUFFER 



>SOFTWARE SILO 
JQ POINTER 
;Q POINTER 



} SERVICE CODE FOR LINKING 

; TO A COMMON XMT OR RCV SERVICE 



P|BT.|^U^ER^,DEVICE 



000000 
000000 



lnktab: jsr 



JSR 


JSR 
2 

JSR 
2 

JSR 
4 

JSR 
4 

JSR 
6 

JSR 
6 

JSR 

10 

JSR 

10 

JSR 

12 

it" 

JSR 
16 

ir 

PNTR: OPEN 

tsyhc: 26 
select: OPEN 



HODVTS: OPEN 
PASCT: OPEN 



R5/DURCV 
R5,DUXHT 
R5/DDRCV 
R5#DUXHT 
R5,DURCV 
R5/DUXMT 
R5,DURCV 
RS^DUXMT 
R5,DURCV 
R5,DUXMT 
R5,DURCV 
R5/DUXMT 
RS^DURCV 
RS^DUXNT 
RS^DURCV 
R5,DUXMT 



;ANSWER 
;OFFSET 
;ANSUER 
;OFFSET 
;ANSUER 
;OFFSET 
;ANSWER 
;OFFSET 
;ANSWER 
>OFFSET 

;answer 

;OFFSET 
;ANSWSR 
;OFFSBT 

;ansuer 

;OFFSET 

;answer 

;OFFSET 

;answer 

; OFFSET 

;answer 

;OFFSET 

;ansuer 

JOFFSET 

;answer 

;OFFSET 

;answer 

JOFFSET 

;ansuer 

?OFFSET 

;ansner 

;0FFSET 



LINE 1 RCV 
FOR LINE 1 
LINE 1 XMT 
FOR LINE 1 
LINE 2 RCV 
FOR LINE 2 
LINE 2 XMT 
FOR LINE 2 
LINE 3 RCV 
FOR LINE 3 
LINE 3 XMT 
FOR LINE 3 
LINE 4 RCV 
FOR LINE 4 
LINE 4 XMT 
FOR LINE 4 
LINE 5 RCV 
FOR LINE 5 
LINE 5 XMT 
FOR LINE 5 
LINE 6 RCV 
FOR LINE 6 
LINE 6 XMT 
FOR LINE 6 
LINE 7 RCV 
FOR LINE 7 
LINE 7 XMT 
FOR LINE 7 
LINE 8 RCV 
FOR LINE a 
LINE 8 XMT 
FOR LINE 8 



INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 



;PNTR REG TO TEST DEVICE ON LINE 
;SYNC CHAR 

;POINTER FLAG WHICH WILL BRANCH TO 
;TEST STATUS OF ALL LINES AFTER 
JCOMPLETING ONE LINE DATA TRANSFER 
;WHEN =8 ALL LINES HAVE BEEN TESTED 
jDATA BUFFER REG. 
;COUNTS LOOPS FOR WHEN TO ENDPASS 
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COUNT: 

RCVDAT: 

CHECKR: 

NU.DU: 

DUDN: 

TRCNT: 

rccnt: 

OVERRU: 
FRAMER: 
PARIER: 
TMOTFLG! 

tmrcnt: 

TICKER: 

tflag: 



OPEN 





OPEN 
OPEN 
OPRfl 
OPEH 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
.END 



SEQ 0017 



;WDRD USED TO TEMPORARILY SAVE RXDBUF 
;S10RES WORD BEING CHECKED 
;N0. OF DU'S SELECTED 
;DU'S DONE 
;XMIT COUNT 
-RECEIVE COU .. 

ERROR COUNT 
JFRAME ERROR COUNT 
;PARITy ERROR COUNT 
;TIMEOUT FLAG 
;BREAK LOOP TIMER 
;BREAK LOOP COUNTER 
;FLAG FOR TIMER ROUTINE 
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ACSR 

ACTVAT 

ADDR^, 

ADDR22S 

ASB 

ASTAT 

AHA5 

BADDON 

BDONE 

BEGIN 



BITW 

BITO 

BITI 

BITIO 

BITll 

BITia 

BIT13 



BIT3 
BIT4 



BRl 
BR2 



olSooo 



0S04S0 
001000 
OOOQQl 



mil 

104412 
0020i4R 



473* 
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495* 601* 

355 



ill' 



398 
514 



221 

III' 

194 
193 

ilh 

m 

216 



404 
518 



29 1# 



405 
525 



291# 
29l| 
2911 



410 

536 



411 
547 



462 
614 



641* 678 



789# 



642* 
472* 



643 

680* 

494* 



688 
686 
600* 



787# 
674* 



682 
532 



791# 
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in 

IHl 
IR2 
_IH3 
.1N4 

.ins 

IH6 
IH7 

DURCV 

DURCVl 

DUXMT 

DUXMT2 

0UXHT3 

DUXMT4 

DVADl 

DVIDl 

ENDIT$= 

ENDS = 
ERRRT 



0526R 

inr 



mil 
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746 


750 


489# 






752 






im 




453 


455» 


442 


469 






III 








W 


383 


413 






411 


\lh 


523* 


398 


456 






Uil 




539 


542* 


53 4# 




506 




485 


525 



758 
760 



708# 



762 
764 



766 
768 



770 
772 



774 

776 



462 656 



795# 



670# 



UUUUJU 

g00434 



293* 
383 
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LNKTAB 

LNSYNl 

MAP22$= 

MESSAG 

MEXT = 

MINT = 

MODNAH 

MODSP 

HRESET= 

MSGNS = 

HSGS$ = 

MSGS = 

MTDATA= 

NQDVTS 

NOPAR = 

NO-DU 

NULL = 

ODDPAR= 

OPEN = 



002750R 

002424R 

104416 

002244R 

010000 

004000 

OOOOOQR 

000224R 

000400 

104403 

104402 

040000 

003116R 

OOOOOQ 

001000 
000000 




29 1# 
208| 



648 

291" 

779^ 

2911 

29li 

29l| 

29 li 

29l| 



746# 
448 



289# 



369* 
380 
314* 
485 

244 
275 
787 

523# 

528 

501 

IIP 



693 
428 



437# 



644* 
383 
579 
525 

245 
277 
790 



531* 



6971^ 
480 



291# 



422* 
438* 



450 


452* 


458 


647 


689* 


692 


790# 
536 


547 


558 


246 
278 
791 


247 
280 
792 


264 
281 
793 


794# 






796» 






504 


509 


514 



709# 



614 

265 
282 
794 



739 
796 



26R 
740 
797 



269 
779 
798 



270 
781 
799 



271 

8 00 



423 
439 



425* 
441* 



739# 
740| 
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RCVDAT 
RCVRTN 
READ 

RECACT= 

RESTOR 

RESTR 

RESTRT 

RESl 

RES2 
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i?3 



495 
580 



541 

298ff 



501 
594# 



m 



000042R 



377 
328# 



284 
378 

29 1# 
655* 
385 



78 1# 



380 
385 

377 

396 

408* 

406 

798# 

3961 



mi 
698* 



800# 
797# 
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304 
447* 



377* 
448* 

387 

306 

571* 

292* 
291* 

461« 
708# 



423 
792# 



713# 



425 
454* 



73 8 # 



713# 



718# 



72 0# 



722# 



724tf 



726» 



728# 



000000 
003156 



000 
001 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



xduaio,xduaio/sol/crf:syh=ddxcom,xduaio 
run-time: 1 2 .5 seconds 
run-time ratio 
core used: 7k 



14/4=2.9 
(13 PAGES) 



